home *** CD-ROM | disk | FTP | other *** search
- >** - top of file -|
- >**
-
- master.do V. 6.1.2 - 02/21/92.
-
- By Al Fasoldt.
-
- This script is offered as an example of a complicated master
- script -- one that runs all other DO scripts. It may be useful
- as a way of showing how variables can be passed among different
- DO files.
-
- You will notice that one of the functions of this script is to
- run a DO file that exchanges notes and files with my brother
- Bob. We have done this since 1982 or 1983, first on small Ataris
- and then on our STs. Xmodem transfers are handled remotely and
- automatically.
-
- |
-
- >op e:\flash\do\setpath.do|
- >if op cd e:\flash\do\|
- >jmp setpath|
- >op p:\setpath.do|>** no HD? Try the RD.|
- >if op cd p:\|
- >jmp setpath|
- >cd a:\do\|>** use this path as a last resort.|
- >L: setpath|
- >type "|SETPATH.DO located...||"|
- >DO SETPATH.DO|
- >cd $R|>** this is set by setpath.do.|
- >WT 03:20:00|
- >L: START|
- >$N|>** set later if call to Bob goes thru.|
- >L: no_null|
- >type Executing $QRESET|
- >type|
- >type|
- >DO $QRESET.DO|
- >RE 1|
- ATZ|
- >L: answring|
- >$X|
- >DO ANSWRING.DO|
- >ifi $X "carrier" jmp runxter|
- >ifi $X "no data" jmp makecalls|
- >ifi $T "03:" jmp makecalls|
- >jmp answring|
- >L: runxter|
- >DO XTERNAL.DO|
- >cd p:\|
- >pa 2|
- ATZ|
- >pa 2|
- >ifi $U "tobob.do" jmp tobob_exter|
- >jmp answring|
- >L: makecalls|
- >WT 03:27:00|
- >DO $QRESET.DO|
- >type|
- >type Executing $QMINIDATE.DO|
- >type|
- >DO $QMINIDATE.DO|
- ATZ|
- >PA 2|
- >RE 1|
- >type|
- >type Executing $QFROMBOB|
- >type|
- >ba 24|
- >DO $QFROMBOB.DO|
- >DO $QRESET.DO|
- >RE 1|
- ATZ|
- >PA 30|
- >type|
- >type Executing $QTOBOB|
- >type|
- >ba 24|
- ATZ|
- >DO $QTOBOB.DO|
- >$N|>** call status variable; see TOBOB.DO|
- >PA 2|
- >DO $QRESET.DO|
- >pa 2|
- >DO $QBULLETIN.DO|
- >pa 2|
- >DO $QHJUPLOAD.DO|
- >RE 1|
- >ba 24|
- ATZ|
- >DO $QBACKUPDO.DO|
- >pa 10|
- >do $Qbakupstw.do|
- >pa 10|
- >do $Qbakupaut.do|
- >pa 10|
- >do $Qreceive.do|
- >** |
- >CA CL|
- >type |
- >type $X|
- >cd $R|
- >JMP START|
- >END|
- >L: QUIT|
- >HG|
- ATZ|
- >PA 2|
- >EXIT|
- >end|
- >** end|
-